home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 April / Cd Pc Users extra 19 abril 1999.iso / Prog / Inst / MagicFrm / magicfrm.exe / FRMMagic.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-01-21  |  3.0 KB  |  95 lines
  1. VERSION 5.00
  2. Object = "{B3ECB8C8-B046-11D2-B522-D0863DEC394B}#2.0#0"; "MagicFrm.ocx"
  3. Begin VB.Form FRMMagic 
  4.    Caption         =   "Exemplo do FulDrag e OnTop"
  5.    ClientHeight    =   2190
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4290
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   2190
  11.    ScaleWidth      =   4290
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin MagicForms.FullDrag FullDrag1 
  14.       Left            =   1620
  15.       Top             =   660
  16.       _ExtentX        =   2223
  17.       _ExtentY        =   847
  18.    End
  19.    Begin MagicForms.OnTop OnTop1 
  20.       Left            =   300
  21.       Top             =   660
  22.       _ExtentX        =   2223
  23.       _ExtentY        =   847
  24.    End
  25.    Begin VB.TextBox TXTDrag 
  26.       Height          =   495
  27.       Index           =   1
  28.       Left            =   2220
  29.       MultiLine       =   -1  'True
  30.       TabIndex        =   4
  31.       Text            =   "FRMMagic.frx":0000
  32.       Top             =   1680
  33.       Width           =   1995
  34.    End
  35.    Begin VB.TextBox TXTDrag 
  36.       Height          =   495
  37.       Index           =   0
  38.       Left            =   2220
  39.       MultiLine       =   -1  'True
  40.       TabIndex        =   3
  41.       Text            =   "FRMMagic.frx":002E
  42.       Top             =   1140
  43.       Width           =   1995
  44.    End
  45.    Begin VB.CheckBox CHKOnTop 
  46.       Caption         =   "Formul
  47. rio sempre vis
  48. vel / Always on Top Form"
  49.       Height          =   495
  50.       Left            =   120
  51.       TabIndex        =   0
  52.       Top             =   60
  53.       Width           =   3855
  54.    End
  55.    Begin VB.Label LBLDrag 
  56.       Alignment       =   2  'Center
  57.       BorderStyle     =   1  'Fixed Single
  58.       Caption         =   "Click and Drag Here to move the Form."
  59.       Height          =   435
  60.       Index           =   1
  61.       Left            =   120
  62.       TabIndex        =   2
  63.       Top             =   1620
  64.       Width           =   2055
  65.    End
  66.    Begin VB.Label LBLDrag 
  67.       Alignment       =   2  'Center
  68.       BorderStyle     =   1  'Fixed Single
  69.       Caption         =   "Clique e arraste aqui para mover o formul
  70. rio."
  71.       Height          =   435
  72.       Index           =   0
  73.       Left            =   120
  74.       TabIndex        =   1
  75.       Top             =   1140
  76.       Width           =   2055
  77.    End
  78. Attribute VB_Name = "FRMMagic"
  79. Attribute VB_GlobalNameSpace = False
  80. Attribute VB_Creatable = False
  81. Attribute VB_PredeclaredId = True
  82. Attribute VB_Exposed = False
  83. Private Sub CHKOnTop_Click()
  84. If CHKOnTop.Value = 1 Then
  85.     OnTop1.Enabled = True
  86.     OnTop1.Enabled = False
  87. End If
  88. End Sub
  89. Private Sub LBLDrag_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  90. If Button = 1 Then FullDrag1.ArrasteTotal Me
  91. End Sub
  92. Private Sub TXTDrag_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  93. If Button = 1 Then FullDrag1.ArrasteTotal TXTDrag(Index)
  94. End Sub
  95.